-- background: 2789 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 0
-- name: 
----- HyperTalk script -----
on detail
  global warning,objective,range,range2
  global avail,standby,patrol,detail,idplane,enroute

  if hilite of button avail is false and hilite of button standby is false and hilite of button patrol is false then
    beep
    exit detail
  end if
  if warning is "N" then
    if hilite of button patrol is true then --or warning is "a" OR WARNING IS "E"
      get the loc of button id idplane of card "Map"
      if item 1 of it <range +40 and item 1 of it >range -40 and item 2 of it <range2 +40 and item 2 of it >range2 -40
      then
      send "go" to the target
      exit detail
    end if
  end if
end if
if warning is "l" then
  get the loc of button id idplane of card "Map"
  if item 1 of it <range +80 and item 1 of it >range -80 and item 2 of it <range2 +80 and item 2 of it >range2 -80 then
    send "go" to the target
    exit detail
  end if
end if
put "Too Far." into card field "outOfRange"
beep
show card field "outOfRange" at the mouseh, the mousev
end detail
--FROM BUTTONS "DETAIL"
on goa
  global numSquads,force,avail,standby,patrol,detail,idplane
  set hilite of button avail to false
  set hilite of button detail to true
  set style of button id idplane of card "Map" to rectangle
  show button id idplane of card "Map"
  put "," & the short name of the target after card field "squads" of card "Map"
  add 1 to numSquads
end goa

on resultsa                                --FROM BUTTONS "DETAIL"
  global damage,force,bforce,fforce,LESSSQUADS,LESSUS,done
  global released,avail,standby,releaseDate,base,coord,idplane,sorties

  IF DAMAGE IS "N" AND FFORCE >0 AND BFORCE >0 THEN EXIT RESULTSA
  set style of button id idplane of card "Map" to transparent
  set hilite of the target to false

  if damage is "N" then
    get the hilite of button released of card base
    if it is false then
      set hilite of button avail of card base to true
    end if
  end if

  if damage is "l" then
    get the hilite of button released of card base
    if it is false then
      put 2 into word 2 of line 2 of card field id releaseDate of card base
      put DAYS into word 3 of line 2 of card field id releaseDate of card base
      PUT "PATCHING UP PLANES" INTO LINE 3 OF CARD FIELD ID RELEASEDATE OF CARD BASE
      set hilight of button released of card base to true
      set hilite of button avail of card base to false
      play "boing" a#01
      flash 1
    end if
  end if
  if damage is "H" then
    set hilite of button released of card base to true
    set hilite of button avail of card base to false
    put 4 into word 2 of line 2 of card field id releaseDate of card base
    put "DAYS" into word 3 of line 2 of card field id releaseDate of card base
    PUT "AWAITING AIRCRAFT" INTO LINE 3 OF CARD FIELD ID RELEASEDATE OF CARD BASE
    play "boing" a#01
    flash 2
  end if

  if damage is "K" THEN
    set hilite of button released of card base to true
    set hilite of button avail of card base to false
    put 6 into word 2 of line 2 of card field id releaseDate of card base
    put "DAYS" into word 3 of line 2 of card field id releaseDate of card base
    PUT "AWAITING NEW PILOTS" INTO LINE 3 OF CARD FIELD ID RELEASEDATE OF CARD BASE
    put empty into card field id sorties of card base
    play "boing" a#01
    flash 3
  end if

  show button id idplane of card "Map" at coord
  HIDE BUTTON ID IDPLANE OF CARD "MAP"
end resultsa

ON RELEASE                      --FROM BUTTON "RELEASED"
  GLOBAL AVAIL,RELEASEDATE
  subtract 1 from word 2 of line 2 of card field id releaseDate
  if word 2 of line 2 of card field id releaseDate is 1 then
    put DAY into word 3 of line 2 of card field id releaseDate
  else
    put DAYS into word 3 of line 2 of card field id releaseDate
    if word 2 of line 2 of card field id releaseDate <2 then
      set hilite of THE TARGET to false
      set hilite of button avail to true
    end if
  end if
end RELEASE

on land
  global coord,patrol,detail,idplane,warning,BBTIME,LANDTIME
  if hilite of button patrol is false and hilite of button detail is false then
    beep
    exit land
  end if
  if warning is not empty then
    beep
    show card field "outOfRange" at the mouseh, the mousev
    exit land
  end if
  set hilite of button patrol to false
  set hilite of button detail to false
  set hilite of the target to true
  set style of button id idplane of card "Map" to transparent
  SHOW button id idplane of card "Map" at coord
  HIDE BUTTON ID IDPLANE OF CARD "MAP"
  PUT BBTIME INTO LANDTIME
end land